home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / playamiga.avm < prev    next >
Text File  |  1994-06-24  |  1KB  |  49 lines
  1. /*
  2. BUGS:  If you try to play to the amiga from more than one Player, you
  3. will probably be in trouble since we use avmtemp:temp.iff
  4. */
  5.  
  6. parse upper arg fileName .
  7. address command
  8.  
  9. if exists(filename || 'i') then do
  10.     avmbusy = getclip('AVMBusy')
  11.         say 'avmbusy=' avmbusy
  12.     if avmbusy = "" then call setclip('AVMBusy', '1')
  13.     else call setclip('AVMBusy', avmbusy + 1)
  14.  
  15.     'avm:dsound -2' filename || 'i'
  16.         /*
  17.     'avm:agmsplaysound' filename || 'i'
  18.         */
  19.  
  20.     avmbusy = getclip('AVMBusy')
  21.     call setclip('AVMBusy', avmbusy - 1)
  22. end; else do
  23.     lastPlayed = upper(getclip('playAmigaFile'))
  24.     playWhileConverting = upper(getclip('AVMPlayWhileConverting'))
  25.  
  26.     if lastPlayed ~= fileName then do
  27.         say 'Converting'
  28.             if playWhileConverting = 'YES' then
  29.             'avm:adpcm2iff' fileName 'avmtemp:temp.iff' '-play'
  30.             else
  31.             'avm:adpcm2iff' fileName 'avmtemp:temp.iff'
  32.             if rc ~= 0 then exit
  33.         call setclip('playAmigaFile', fileName)
  34.     end
  35.  
  36.     avmbusy = getclip('AVMBusy')
  37.     if avmbusy = "" then call setclip('AVMBusy', '1')
  38.     else call setclip('AVMBusy', avmbusy + 1)
  39.  
  40.     'avm:dsound -2' 'avmtemp:temp.iff'
  41.         /*
  42.     'avm:agmsplaysound' 'avmtemp:temp.iff'
  43.         */
  44.  
  45.     avmbusy = getclip('AVMBusy')
  46.     call setclip('AVMBusy', avmbusy - 1)
  47.  
  48.     say 'Done'
  49. end